home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / wcols50.zip / MERCHANT.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-04-06  |  27KB  |  834 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  27454 bytes  01/29/123  04:31:52pm
  3. '! Code Segment Size  :11648 bytes
  4. '! Data Segment Size  :5455 bytes
  5. '! String Segment Size:15806 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Type Type26
  9.         s0 As String*8
  10.         s8 As String*25
  11.         s33 As String*30
  12.         s63 As String*30
  13.         s93 As String*30
  14.         s123 As String*30
  15.         s153 As String*5
  16.         s158 As String*10
  17.         s168 As String*15
  18.         s183 As String*15
  19.         s198 As String*3
  20.         s201 As String*3
  21.         s204 As String*3
  22.         s207 As String*3
  23.         s210 As String*5
  24.         s215 As String*3
  25.       End Type
  26.  
  27.       Dim t26_4463 As Type26
  28.       Dim l4681 As Long
  29.       Dim s4685 As String
  30.       Dim s4689 As String
  31.       Dim s4693 As String
  32.       Dim s4697 As String
  33.       Dim s4701 As String
  34.       Dim ur4705 As UserRecord
  35.       Dim i5355 As Integer
  36.       Dim i5357 As Integer
  37.       Dim i5371 As Integer
  38.       Dim s5373 As String
  39.       Dim s5377 As String
  40.       Dim i5381 As Integer
  41.       Dim i5383 As Integer
  42.       Dim s5385 As String
  43.       Dim w5389 As Word
  44.       Dim l5391 As Long
  45.       Dim s5395 As String
  46.       Dim l5399 As Long
  47.       Dim s5403 As String
  48.       Dim s5407 As String
  49.       Dim s5411 As String
  50.       Dim s5415 As String
  51.       Dim s5419 As String
  52.       Dim s5423 As String
  53.       Dim s5427 As String
  54.       Dim s5431 As String
  55.       Dim s5435 As String
  56.       Dim s5439 As String
  57.       Dim s5443 As String
  58.       Dim s5447 As String
  59.       Dim s5451 As String
  60.  
  61.       Dim s65512_ As String
  62.       Dim s65516_ As String
  63.       Dim s65520_ As String
  64.       Dim s65524_ As String
  65.       Dim s65528_ As String
  66.       Dim s65532_ As String
  67.  
  68.       Open "OLS.CFG" For Input As 1
  69.       Input #1, s5385
  70.       Input #1, w5389
  71.       Input #1, l5391
  72.       Input #1, s5407
  73.       Input #1, s5411
  74.       Input #1, s5415
  75.       Input #1, s5419
  76.       Input #1, s5423
  77.       Input #1, s5427
  78.       Input #1, s5431
  79.       Input #1, s5435
  80.       Input #1, s5439
  81.       Input #1, s5443
  82.       Close 1
  83.       s5395 = Right(MakeWild.RegString, 2)
  84.       l5399 = Val(s5395) * Val(s5395) * Val(s5395) + 1000000
  85.       If l5399 <> l5391 Then
  86.         s5403 = "UNREGISTERED"
  87.       Else
  88.   248   s5403 = "REGISTERED"
  89.       End If
  90.   257 s5447 = "5.0"
  91.       StatusOpen 1
  92.       StatusWrite "    Online Store   v" + s5447 + "    COPYRIGHT (C) 1995  Online Real Estate Consulting", 1213417543, 1213417543, 1213417543
  93.       Locate 20, 1
  94.       If UCase(User.SecLevel) = "SYSOP" Then
  95.       Else
  96.   346   If UCase(User.SecLevel) = s5407 Then
  97.           GoTo 7112
  98.         End If
  99.   377   If UCase(User.SecLevel) = s5411 Then
  100.           GoTo 7112
  101.         End If
  102.   408   If UCase(User.SecLevel) = s5415 Then
  103.           GoTo 7112
  104.         End If
  105.   439   If UCase(User.SecLevel) = s5419 Then
  106.           GoTo 7112
  107.         End If
  108.   470   If UCase(User.SecLevel) = s5423 Then
  109.           GoTo 7112
  110.         End If
  111.   501   If UCase(User.SecLevel) = s5427 Then
  112.           GoTo 7112
  113.         End If
  114.   532   If UCase(User.SecLevel) = s5431 Then
  115.           GoTo 7112
  116.         End If
  117.   563   If UCase(User.SecLevel) = s5435 Then
  118.           GoTo 7112
  119.         End If
  120.   594   If UCase(User.SecLevel) = s5439 Then
  121.           GoTo 7112
  122.         End If
  123.   625   If UCase(User.SecLevel) = s5443 Then
  124.           GoTo 7112
  125.         End If
  126.   656   Color 14, 0
  127.         Print "Your present security level does not permit this selection."
  128.         Delay 3
  129.         Chain s5385 + "VIEWOLS.WCX", ""
  130.       End If
  131.       Do
  132.         Do
  133.           Do
  134.             Do
  135.               Do
  136.                 Do
  137.   698             i5381 = 1
  138.                   i5357 = 0
  139.                   Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  140.                   Do
  141.   737               Get 1, i5381, t26_4463 '! 218 bytes
  142.                     If UCase(t26_4463.s33) <> "DEL" Then
  143.                       i5357 = i5357 + 1
  144.                     End If
  145.   792               i5381 = i5381 + 1
  146.                   Loop While Not EOF(1)
  147.                   Close 1
  148.                   i5383 = i5357
  149.                   Cls 
  150.                   Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  151.                   Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  152.                   Print "@1E@░░░░░░░░░░░@1F@┌──────────────────────────────────────────────────────┐@1E@░░░░░░░░░░░░"
  153.                   Print "@1E@░░░░░░░░░░░@1F@│     @1E@        Online Store - Leasing Office      @1F@      │@07@░░@1E@░░░░░░░░░░"
  154.                   Print "@1E@░░░░░░░░░░░@1F@│                      Sysop Access                    │@07@░░@1E@░░░░░░░░░░"
  155.                   Print "@1E@░░░░░░░░░░░@1F@│  @1F@ Total Stores   @1E@" + Pad(Str(i5383), 8) + "                            @1F@│@07@░░@1E@░░░░░░░░░░"
  156.                   Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  157.                   Print "@1E@░░░░░░░░░░░@1F@│ [@1E@1@1F@]   @1F@List Merchant Profiles                         @1F@│@07@░░@1E@░░░░░░░░░░"
  158.                   Print "@1E@░░░░░░░░░░░@1F@│ [@1E@2@1F@]   @1F@Add Merchant Profiles                          @1F@│@07@░░@1E@░░░░░░░░░░"
  159.                   Print "@1E@░░░░░░░░░░░@1F@│ [@1E@3@1F@]   @1F@Edit/Delete Merchant Profiles                  @1F@│@07@░░@1E@░░░░░░░░░░"
  160.                   Print "@1E@░░░░░░░░░░░@1F@│ [@1E@?@1F@]   @1F@Help!                                          @1F@│@07@░░@1E@░░░░░░░░░░"
  161.                   Print "@1E@░░░░░░░░░░░@1F@│ [@1E@X@1F@]   Exit To The Store Lobby                        @1F@│@07@░░@1E@░░░░░░░░░░"
  162.                   Print "@1E@░░░░░░░░░░░@1F@├──────────────────────────────────────────────────────┤@07@░░@1E@░░░░░░░░░░"
  163.                   Print "@1E@░░░░░░░░░░░@1F@│ @1E@Your Command:  @0E@[ ]@1F@                                   @1F@│@07@░░@1E@░░░░░░░░░░"
  164.                   Print "@1E@░░░░░░░░░░░@1F@└──────────────────────────────────────────────────────┘@07@░░@1E@░░░░░░░░░░"
  165.                   Print "@1E@░░░░░░░░░░░░░░░@07@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@1E@░░░░░░░░░░"
  166.                   Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  167.                   Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  168.                   Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  169.                   Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  170.                   Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  171.                   Locate 14, 30
  172.                   s5373 = ""
  173.                   Do
  174.                     Do
  175.  1064                 s5373 = InKey(1213417543)
  176.                     Loop Until s5373 <> ""
  177.                     s65532_ = UCase(s5373)
  178.                     If s65532_ = "X" Then
  179.                       Chain s5385 + "VIEWOLS.WCX", ""
  180.                     Else
  181.  1146                 If s65532_ = "3" Then
  182.                         GoTo 2893
  183.                       Else
  184.  1175                   If s65532_ = "2" Then
  185.                           GoTo 1415
  186.                         Else
  187.  1204                     If s65532_ = "1" Then
  188.                             GoTo 5235
  189.                           Else
  190.  1233                       If s65532_ = "?" Then
  191.                               GoTo 1268
  192.                               GoTo 1262
  193.                             End If
  194.                           End If
  195.                         End If
  196.                       End If
  197.                     End If
  198.  1262             Loop
  199.  1268             Cls 
  200.                   Print ""
  201.                   Print "  @0E@List Stores - @0F@Allows you to view a list of all active stores.@0E@"
  202.                   Print ""
  203.                   Print "  @0E@Add Stores - @07@ @0F@Enter new stores.  All store-owners (CONTACT) must already be"
  204.                   Print "    listed in the Wildcat! User Database.  The process of adding a store will"
  205.                   Print "    automatically update the CONTACT's security level to MERCHANT.  If you"
  206.                   Print "    choose to KILL store info, CONTACT's security level will not be changed.@0E@"
  207.                   Print ""
  208.                   Print "  @0E@Edit/Del Stores@07@ @0E@- @07@ @0F@Edit or delete existing stores.  Changes made to a store"
  209.                   Print "    profile will immediately be reflected throughout the application.  DELETED"
  210.                   Print "    stores will no longer be displayed to callers.  CONTACT's of deleted stores"
  211.                   Print "    will have their security level changed to that which you specify.@07@"
  212.                   Print ""
  213.                   Print ""
  214.                   Print ""
  215.                   WaitEnter 
  216.                 Loop
  217.  1415           Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  218.                 l4681 = LOF(1) + 1
  219.                 Close 1
  220.                 Cls 
  221.                 Print ""
  222.                 Print ""
  223.                 Print ""
  224.                 Print "@0F@CONTACT@0E@:      [                         ]"
  225.                 Print "@0F@COMPANY@0E@:      [                              ]"
  226.                 Print "@0F@ADDRESS1@0E@:     [                              ]"
  227.                 Print "@0F@ADDRESS2@0E@:     [                              ]"
  228.                 Print "@0F@CITY@0E@:         [                              ]"
  229.                 Print "@0F@STATE@0E@:        [     ]"
  230.                 Print "@0F@ZIP@0E@:          [          ]"
  231.                 Print "@0F@OFFICE@0E@:       [               ]"
  232.                 Print "@0F@FAX@0E@:          [               ]"
  233.                 Print "@0F@MASTERCARD@0E@:   [   ]"
  234.                 Print "@0F@VISA@0E@:         [   ]"
  235.                 Print "@0F@DISCOVER@0E@:     [   ]"
  236.                 Print "@0F@AMEX@0E@:         [   ]"
  237.                 Print "@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    [     ]"
  238.                 Print "@0F@TAX RATE@0E@:     [     ]"
  239.                 Locate 1, 1
  240.                 Print ""
  241.                 Print "Store Number: @0B@ " + Str(l4681)
  242.                 Print ""
  243.                 t26_4463.s0 = Str(l4681)
  244.                 t26_4463.s8 = InputMask("@0F@CONTACT@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  245.                 If GetUser(ur4705, t26_4463.s8) Then
  246.                   GoTo 1789
  247.                 End If
  248.  1744           Locate 2, 25
  249.                 Print UCase(t26_4463.s8) + " not found in user database.  "
  250.                 Delay 3
  251.               Loop
  252.  1789         t26_4463.s33 = InputMask("@0F@COMPANY@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  253.               t26_4463.s63 = InputMask("@0F@ADDRESS1@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  254.               t26_4463.s93 = InputMask("@0F@ADDRESS2@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  255.               t26_4463.s123 = InputMask("@0F@CITY@0E@:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  256.               t26_4463.s153 = InputMask("@0F@STATE@0E@:        ", "XXXXX", "", 1213417543)
  257.               t26_4463.s158 = InputMask("@0F@ZIP@0E@:          ", "XXXXXXXXXX", "", 1213417543)
  258.               t26_4463.s168 = InputMask("@0F@OFFICE@0E@:       ", "XXXXXXXXXXXXXXX", "", 1213417543)
  259.               t26_4463.s183 = InputMask("@0F@FAX@0E@:          ", "XXXXXXXXXXXXXXX", "", 1213417543)
  260.               t26_4463.s198 = InputMask("@0F@MASTERCARD@0E@:   ", "XXX", "", 1213417543)
  261.               t26_4463.s201 = InputMask("@0F@VISA@0E@:         ", "XXX", "", 1213417543)
  262.               t26_4463.s204 = InputMask("@0F@DISCOVER@0E@:     ", "XXX", "", 1213417543)
  263.               t26_4463.s207 = InputMask("@0F@AMEX@0E@:         ", "XXX", "", 1213417543)
  264.               t26_4463.s210 = InputMask("@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    ", "XXXXX", "", 1213417543)
  265.               t26_4463.s215 = InputMask("@0F@TAX RATE@0E@:     ", "99999", "", 1213417543)
  266.               Print ""
  267.               Print "[@0F@S@0E@]ave store info, [@0F@K@0E@]ill store info:  ";
  268.               s5377 = ""
  269.               Do
  270.                 Do
  271.  2278             s5377 = InKey(1213417543)
  272.                 Loop Until s5377 <> ""
  273.                 s65528_ = UCase(s5377)
  274.                 If s65528_ = "S" Then
  275.                   If UCase(ur4705.SecLevel) <> "SYSOP" Then
  276.                     ur4705.SecLevel = "MERCHANT"
  277.                   End If
  278.  2376             UpdateUser(ur4705)
  279.                   Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  280.                   Put 1, l4681, t26_4463 '! 218 bytes
  281.                   Close 1
  282.                   s4689 = s5385 + "\" + Str(l4681) + "\"
  283.                   MkDir s5385 + Str(l4681)
  284.                   MkDir s4689 + "1"
  285.                   MkDir s4689 + "2"
  286.                   MkDir s4689 + "3"
  287.                   MkDir s4689 + "4"
  288.                   MkDir s4689 + "5"
  289.                   MkDir s4689 + "6"
  290.                   MkDir s4689 + "7"
  291.                   MkDir s4689 + "8"
  292.                   MkDir s4689 + "9"
  293.                   GoTo 698
  294.                 Else
  295.  2616             If s65528_ = "K" Then
  296.                     t26_4463.s0 = ""
  297.                     t26_4463.s8 = ""
  298.                     t26_4463.s33 = ""
  299.                     t26_4463.s63 = ""
  300.                     t26_4463.s93 = ""
  301.                     t26_4463.s123 = ""
  302.                     t26_4463.s153 = ""
  303.                     t26_4463.s158 = ""
  304.                     t26_4463.s168 = ""
  305.                     t26_4463.s183 = ""
  306.                     t26_4463.s198 = ""
  307.                     t26_4463.s201 = ""
  308.                     t26_4463.s204 = ""
  309.                     t26_4463.s207 = ""
  310.                     t26_4463.s210 = ""
  311.                     t26_4463.s215 = ""
  312.                     GoTo 698
  313.                     GoTo 2881
  314.                   End If
  315.                 End If
  316.  2881         Loop
  317.             Loop
  318.  2893       Locate 14, 14
  319.             s4685 = InputMask("@1E@Store Number:  @0E@", "99999999", "", 1213417543)
  320.             If (s4685 < "1" Or s4685 > "99999999") = 0 Then GoTo 2994
  321.             Locate 14, 14
  322.             Print "@1E@Store Not Found.  Please Enter A Valid Store Number."
  323.             Locate 14, 65
  324.             Delay 3
  325.           Loop
  326.  2994     l4681 = Val(s4685)
  327.           If (Exists(s5385 + "MERCHANT.DAT")) = 0 Then GoTo 3518
  328.           Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  329.           If (LOF(1) < l4681 Or l4681 < 1) = 0 Then GoTo 3129
  330.           Locate 14, 14
  331.           Print "@1E@Store Not Found.  Please Enter A Valid Store Number."
  332.           Locate 14, 65
  333.           Delay 3
  334.           Close 1
  335.         Loop
  336.         GoTo 3144
  337.  3129   Get 1, l4681, t26_4463 '! 218 bytes
  338.  3144   Close 1
  339.  3149   Cls 
  340.         Print "Store Information: @0B@ " + Str(l4681)
  341.         Print "@0E@"
  342.         Print "@0E@Store Number:     @0F@    " + t26_4463.s0
  343.         Print "@0E@Contact:          @0F@    " + t26_4463.s8
  344.         Print "@0E@Company:          @0F@    " + t26_4463.s33
  345.         Print "@0E@Address:          @0F@    " + t26_4463.s63
  346.         Print "@0E@Address:          @0F@    " + t26_4463.s93
  347.         Print "@0E@City:             @0F@    " + t26_4463.s123
  348.         Print "@0E@State:            @0F@    " + t26_4463.s153
  349.         Print "@0E@ZIP Code:         @0F@    " + t26_4463.s158
  350.         Print "@0E@Office Phone:     @0F@    " + t26_4463.s168
  351.         Print "@0E@Fax Phone:        @0F@    " + t26_4463.s183
  352.         Print "@0E@Mastercard:       @0F@    " + t26_4463.s198
  353.         Print "@0E@VISA:             @0F@    " + t26_4463.s201
  354.         Print "@0E@Discover:         @0F@    " + t26_4463.s204
  355.         Print "@0E@American Express: @0F@    " + t26_4463.s207
  356.         Print "@0E@Tax State:        @0F@    " + t26_4463.s210
  357.         Print "@0E@Tax Rate:         @0F@    " + t26_4463.s215
  358.         GoTo 3527
  359.  3518   Print "@0E@Store not found."
  360.  3527   Print ""
  361.         Print "@0E@[@0F@E@0E@]dit info, [@0F@D@0E@]elete info, [@0F@Q@0E@]uit:  ";
  362.         s5377 = ""
  363.         Do
  364.           Do
  365.  3554       s5377 = InKey(1213417543)
  366.           Loop Until s5377 <> ""
  367.           s65524_ = UCase(s5377)
  368.           If s65524_ = "D" Then
  369.             If GetUser(ur4705, t26_4463.s8) Then
  370.               Print ""
  371.               ur4705.SecLevel = UCase(InputMask("Please enter @0F@" + UCase(t26_4463.s8) + "'s@0E@ new security level:  ", "XXXXXXXXXXXXXX", "", 1213417543))
  372.               UpdateUser(ur4705)
  373.             End If
  374.  3707       t26_4463.s0 = Str(l4681)
  375.             t26_4463.s8 = ""
  376.             t26_4463.s33 = "DEL"
  377.             t26_4463.s63 = ""
  378.             t26_4463.s93 = ""
  379.             t26_4463.s123 = ""
  380.             t26_4463.s153 = ""
  381.             t26_4463.s158 = ""
  382.             t26_4463.s168 = ""
  383.             t26_4463.s183 = ""
  384.             t26_4463.s198 = ""
  385.             t26_4463.s201 = ""
  386.             t26_4463.s204 = ""
  387.             t26_4463.s207 = ""
  388.             t26_4463.s210 = ""
  389.             t26_4463.s215 = ""
  390.             Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  391.             Put 1, l4681, t26_4463 '! 218 bytes
  392.             Close 1
  393.             i5371 = i5371 + 1
  394.             GoTo 3149
  395.           Else
  396.  4018       If s65524_ = "E" Then
  397.               Cls 
  398.               Print ""
  399.               Print ""
  400.               Print "@0F@CONTACT@0E@:      [" + Pad(t26_4463.s8, 25) + "]"
  401.               Print "@0F@COMPANY@0E@:      [" + Pad(t26_4463.s33, 30) + "]"
  402.               Print "@0F@ADDRESS1@0E@:     [" + Pad(t26_4463.s63, 30) + "]"
  403.               Print "@0F@ADDRESS2@0E@:     [" + Pad(t26_4463.s93, 30) + "]"
  404.               Print "@0F@CITY@0E@:         [" + Pad(t26_4463.s123, 30) + "]"
  405.               Print "@0F@STATE@0E@:        [" + Pad(t26_4463.s153, 5) + "]"
  406.               Print "@0F@ZIP@0E@:          [" + Pad(t26_4463.s158, 10) + "]"
  407.               Print "@0F@OFFICE@0E@:       [" + Pad(t26_4463.s168, 15) + "]"
  408.               Print "@0F@FAX@0E@:          [" + Pad(t26_4463.s183, 15) + "]"
  409.               Print "@0F@MASTERCARD@0E@:   [" + Pad(t26_4463.s198, 3) + "]"
  410.               Print "@0F@VISA@0E@:         [" + Pad(t26_4463.s201, 3) + "]"
  411.               Print "@0F@DISCOVER@0E@:     [" + Pad(t26_4463.s204, 3) + "]"
  412.               Print "@0F@AMEX@0E@:         [" + Pad(t26_4463.s207, 3) + "]"
  413.               Print "@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    [" + Pad(t26_4463.s210, 5) + "]"
  414.               Print "@0F@TAX RATE@0E@:     [" + Pad(t26_4463.s215, 5) + "]"
  415.               t26_4463.s0 = Str(l4681)
  416.               Locate 3, 1
  417.               t26_4463.s8 = InputMask("@0F@CONTACT@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s8, 1213417543)
  418.               t26_4463.s33 = InputMask("@0F@COMPANY@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s33, 1213417543)
  419.               t26_4463.s63 = InputMask("@0F@ADDRESS1@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s63, 1213417543)
  420.               t26_4463.s93 = InputMask("@0F@ADDRESS2@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s93, 1213417543)
  421.               t26_4463.s123 = InputMask("@0F@CITY@0E@:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s123, 1213417543)
  422.               t26_4463.s153 = InputMask("@0F@STATE@0E@:        ", "XXXXX", t26_4463.s153, 1213417543)
  423.               t26_4463.s158 = InputMask("@0F@ZIP@0E@:          ", "XXXXXXXXXX", t26_4463.s158, 1213417543)
  424.               t26_4463.s168 = InputMask("@0F@OFFICE@0E@:       ", "XXXXXXXXXXXXXXX", t26_4463.s168, 1213417543)
  425.               t26_4463.s183 = InputMask("@0F@FAX@0E@:          ", "XXXXXXXXXXXXXXX", t26_4463.s183, 1213417543)
  426.               t26_4463.s198 = InputMask("@0F@MASTERCARD@0E@:   ", "XXX", t26_4463.s198, 1213417543)
  427.               t26_4463.s201 = InputMask("@0F@VISA@0E@:         ", "XXX", t26_4463.s201, 1213417543)
  428.               t26_4463.s204 = InputMask("@0F@DISCOVER@0E@:     ", "XXX", t26_4463.s204, 1213417543)
  429.               t26_4463.s207 = InputMask("@0F@AMEX@0E@:         ", "XXX", t26_4463.s207, 1213417543)
  430.               t26_4463.s210 = InputMask("@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    ", "XXXXX", t26_4463.s210, 1213417543)
  431.               t26_4463.s215 = InputMask("@0F@TAX RATE@0E@:     ", "99999", t26_4463.s215, 1213417543)
  432.               Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  433.               Put 1, l4681, t26_4463 '! 218 bytes
  434.               Close 1
  435.               GoTo 3149
  436.             Else
  437.  5200         If s65524_ = "Q" Then
  438.                 GoTo 698
  439.                 GoTo 5229
  440.               End If
  441.             End If
  442.           End If
  443.  5229   Loop
  444.  5235   If Exists(s5385 + "MERCHANT.DAT") Then
  445.           Cls 
  446.           Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  447.           i5355 = 1
  448.           i5371 = 1
  449.           Print ""
  450.           Print "@0F@┌─────────────────────────────────────────────────────────────────────────────┐"
  451.           Print "@0F@│  STORE         CONTACT                        COMPANY                       │"
  452.           Print "@0F@└─────────────────────────────────────────────────────────────────────────────┘"
  453.           Print ""
  454.           Do
  455.  5343       Get 1, i5371, t26_4463 '! 218 bytes
  456.             If t26_4463.s33 <> "DEL" Then
  457.               Print "@0B@ " + LeftPad(Str(i5371), 8) + "@0E@      " + Pad(t26_4463.s8, 25) + "      " + Pad(t26_4463.s33, 30)
  458.             End If
  459.  5453       i5371 = i5371 + 1
  460.             i5355 = i5355 + 1
  461.             If i5355 = 18 Then
  462.               Print ""
  463.               s4697 = InputMask("[@0F@####@0E@] store to edit, [@0F@N@0E@]ext page, [@0F@P@0E@]revious page, [@0F@Q@0E@]uit:  ", "XXXXXXXX", "", 1213417543)
  464.               If s4697 = "" Then
  465.                 s4697 = "N"
  466.               End If
  467.  5558         If UCase(s4697) = "Q" Then
  468.                 Close 1
  469.                 GoTo 698
  470.               End If
  471.  5589         If UCase(s4697) = "N" Then
  472.                 Cls 
  473.                 Print ""
  474.                 Print "@0F@┌─────────────────────────────────────────────────────────────────────────────┐"
  475.                 Print "@0F@│  STORE         CONTACT                        COMPANY                       │"
  476.                 Print "@0F@└─────────────────────────────────────────────────────────────────────────────┘"
  477.                 Print ""
  478.               End If
  479.  5657         If UCase(s4697) = "P" Then
  480.                 i5371 = i5371 - i5355 - 16
  481.                 Print ""
  482.                 Print "@0F@┌─────────────────────────────────────────────────────────────────────────────┐"
  483.                 Print "@0F@│  STORE         CONTACT                        COMPANY                       │"
  484.                 Print "@0F@└─────────────────────────────────────────────────────────────────────────────┘"
  485.                 Print ""
  486.                 If i5371 < 1 Then
  487.                   i5371 = 1
  488.                 End If
  489.  5765           Cls 
  490.                 WaitEnter 
  491.               End If
  492.  5771         If Val(s4697) >= 1 And Val(s4697) <= LOF(1) Then
  493.                 Get 1, Val(s4697), t26_4463 '! 218 bytes
  494.                 Cls 
  495.                 Print ""
  496.                 Print ""
  497.                 Print "@0F@CONTACT@0E@:      [" + Pad(t26_4463.s8, 25) + "]"
  498.                 Print "@0F@COMPANY@0E@:      [" + Pad(t26_4463.s33, 30) + "]"
  499.                 Print "@0F@ADDRESS1@0E@:     [" + Pad(t26_4463.s63, 30) + "]"
  500.                 Print "@0F@ADDRESS2@0E@:     [" + Pad(t26_4463.s93, 30) + "]"
  501.                 Print "@0F@CITY@0E@:         [" + Pad(t26_4463.s123, 30) + "]"
  502.                 Print "@0F@STATE@0E@:        [" + Pad(t26_4463.s153, 5) + "]"
  503.                 Print "@0F@ZIP@0E@:          [" + Pad(t26_4463.s158, 10) + "]"
  504.                 Print "@0F@OFFICE@0E@:       [" + Pad(t26_4463.s168, 15) + "]"
  505.                 Print "@0F@FAX@0E@:          [" + Pad(t26_4463.s183, 15) + "]"
  506.                 Print "@0F@MASTERCARD@0E@:   [" + Pad(t26_4463.s198, 3) + "]"
  507.                 Print "@0F@VISA@0E@:         [" + Pad(t26_4463.s201, 3) + "]"
  508.                 Print "@0F@DISCOVER@0E@:     [" + Pad(t26_4463.s204, 3) + "]"
  509.                 Print "@0F@AMEX@0E@:         [" + Pad(t26_4463.s207, 3) + "]"
  510.                 Print "@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    [" + Pad(t26_4463.s210, 5) + "]"
  511.                 Print "@0F@TAX RATE@0E@:     [" + Pad(t26_4463.s215, 5) + "]"
  512.                 Print ""
  513.                 s4701 = InputMask("[@0F@E@0E@]dit record, [@0F@Q@0E@]uit:  ", "X", "", 1213417543)
  514.                 If UCase(s4701) = "Q" Then
  515.                 Else
  516.  6399             If UCase(s4701) = "E" Then
  517.                     Cls 
  518.                     t26_4463.s0 = s4697
  519.                     Locate 3, 1
  520.                     t26_4463.s8 = InputMask("@0F@CONTACT@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s8, 1213417543)
  521.                     t26_4463.s33 = InputMask("@0F@COMPANY@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s33, 1213417543)
  522.                     t26_4463.s63 = InputMask("@0F@ADDRESS1@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s63, 1213417543)
  523.                     t26_4463.s93 = InputMask("@0F@ADDRESS2@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s93, 1213417543)
  524.                     t26_4463.s123 = InputMask("@0F@CITY@0E@:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s123, 1213417543)
  525.                     t26_4463.s153 = InputMask("@0F@STATE@0E@:        ", "XXXXX", t26_4463.s153, 1213417543)
  526.                     t26_4463.s158 = InputMask("@0F@ZIP@0E@:          ", "XXXXXXXXXX", t26_4463.s158, 1213417543)
  527.                     t26_4463.s168 = InputMask("@0F@OFFICE@0E@:       ", "XXXXXXXXXXXXXXX", t26_4463.s168, 1213417543)
  528.                     t26_4463.s183 = InputMask("@0F@FAX@0E@:          ", "XXXXXXXXXXXXXXX", t26_4463.s183, 1213417543)
  529.                     t26_4463.s198 = InputMask("@0F@MASTERCARD@0E@:   ", "XXX", t26_4463.s198, 1213417543)
  530.                     t26_4463.s201 = InputMask("@0F@VISA@0E@:         ", "XXX", t26_4463.s201, 1213417543)
  531.                     t26_4463.s204 = InputMask("@0F@DISCOVER@0E@:     ", "XXX", t26_4463.s204, 1213417543)
  532.                     t26_4463.s207 = InputMask("@0F@AMEX@0E@:         ", "XXX", t26_4463.s207, 1213417543)
  533.                     t26_4463.s210 = InputMask("@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    ", "XXXXX", t26_4463.s210, 1213417543)
  534.                     t26_4463.s215 = InputMask("@0F@TAX RATE@0E@:     ", "99999", t26_4463.s215, 1213417543)
  535.                     Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  536.                     Put 1, Val(s4697), t26_4463 '! 218 bytes
  537.                     Close 1
  538.                   End If
  539.                 End If
  540.  7057           Cls 
  541.                 Print "  @0E@Record #           Product Name           Stock#                  Price"
  542.                 Print ""
  543.               End If
  544.             End If
  545.  7078       i5355 = 1
  546.           Loop While Not EOF(1)
  547.           Close 1
  548.           WaitEnter 
  549.         End If
  550.  7106 Loop
  551.       Do
  552.  7112   i5371 = 0
  553.         Open s5385 + "MERCHANT.DAT" For Random As 3 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  554.         i5355 = 1
  555.         Do
  556.  7151     Get 3, i5355, t26_4463 '! 218 bytes
  557.           If UCase(User.Name) = UCase(t26_4463.s8) Then
  558.             Close 3
  559.             l4681 = i5355
  560.             s5451 = "OLD"
  561.             GoTo 9150
  562.           End If
  563.  7230     i5355 = i5355 + 1
  564.         Loop While Not EOF(3)
  565.         Close 3
  566.         s5451 = "NEW"
  567.         Do
  568.  7271     Cls 
  569.           Open s5385 + "MERCHANT.DAT" For Random As 3 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  570.           l4681 = LOF(3) + 1
  571.           Close 3
  572.           t26_4463.s0 = ""
  573.           t26_4463.s8 = ""
  574.           t26_4463.s33 = ""
  575.           t26_4463.s63 = ""
  576.           t26_4463.s93 = ""
  577.           t26_4463.s123 = ""
  578.           t26_4463.s153 = ""
  579.           t26_4463.s158 = ""
  580.           t26_4463.s168 = ""
  581.           t26_4463.s183 = ""
  582.           t26_4463.s198 = ""
  583.           t26_4463.s201 = ""
  584.           t26_4463.s204 = ""
  585.           t26_4463.s207 = ""
  586.           t26_4463.s210 = ""
  587.           t26_4463.s215 = ""
  588.           Cls 
  589.           Print ""
  590.           Print ""
  591.           Print "@0F@CONTACT@0E@:      [" + Pad(User.Name, 25) + "]"
  592.           Print "@0F@COMPANY@0E@:      [" + Pad(t26_4463.s33, 30) + "]"
  593.           Print "@0F@ADDRESS1@0E@:     [" + Pad(t26_4463.s63, 30) + "]"
  594.           Print "@0F@ADDRESS2@0E@:     [" + Pad(t26_4463.s93, 30) + "]"
  595.           Print "@0F@CITY@0E@:         [" + Pad(t26_4463.s123, 30) + "]"
  596.           Print "@0F@STATE@0E@:        [" + Pad(t26_4463.s153, 5) + "]"
  597.           Print "@0F@ZIP@0E@:          [" + Pad(t26_4463.s158, 10) + "]"
  598.           Print "@0F@OFFICE@0E@:       [" + Pad(t26_4463.s168, 15) + "]"
  599.           Print "@0F@FAX@0E@:          [" + Pad(t26_4463.s183, 15) + "]"
  600.           Print "@0F@MASTERCARD@0E@:   [" + Pad(t26_4463.s198, 3) + "]"
  601.           Print "@0F@VISA@0E@:         [" + Pad(t26_4463.s201, 3) + "]"
  602.           Print "@0F@DISCOVER@0E@:     [" + Pad(t26_4463.s204, 3) + "]"
  603.           Print "@0F@AMEX@0E@:         [" + Pad(t26_4463.s207, 3) + "]"
  604.           Print "@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    [" + Pad(t26_4463.s210, 5) + "]"
  605.           Print "@0F@TAX RATE@0E@:     [" + Pad(t26_4463.s215, 5) + "]"
  606.           t26_4463.s0 = Str(l4681)
  607.           Locate 3, 1
  608.           t26_4463.s8 = InputMask("@0F@CONTACT@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXX", User.Name, 1213417543)
  609.           If GetUser(ur4705, t26_4463.s8) Then
  610.             GoTo 8188
  611.           End If
  612.  8158     Locate 2, 25
  613.           Print "You must enter your exact Wildcat! user name. "
  614.           Delay 3
  615.         Loop
  616.  8188   t26_4463.s33 = InputMask("@0F@COMPANY@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s33, 1213417543)
  617.         t26_4463.s63 = InputMask("@0F@ADDRESS1@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s63, 1213417543)
  618.         t26_4463.s93 = InputMask("@0F@ADDRESS2@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s93, 1213417543)
  619.         t26_4463.s123 = InputMask("@0F@CITY@0E@:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s123, 1213417543)
  620.         t26_4463.s153 = InputMask("@0F@STATE@0E@:        ", "XXXXX", t26_4463.s153, 1213417543)
  621.         t26_4463.s158 = InputMask("@0F@ZIP@0E@:          ", "XXXXXXXXXX", t26_4463.s158, 1213417543)
  622.         t26_4463.s168 = InputMask("@0F@OFFICE@0E@:       ", "XXXXXXXXXXXXXXX", t26_4463.s168, 1213417543)
  623.         t26_4463.s183 = InputMask("@0F@FAX@0E@:          ", "XXXXXXXXXXXXXXX", t26_4463.s183, 1213417543)
  624.         t26_4463.s198 = InputMask("@0F@MASTERCARD@0E@:   ", "XXX", t26_4463.s198, 1213417543)
  625.         t26_4463.s201 = InputMask("@0F@VISA@0E@:         ", "XXX", t26_4463.s201, 1213417543)
  626.         t26_4463.s204 = InputMask("@0F@DISCOVER@0E@:     ", "XXX", t26_4463.s204, 1213417543)
  627.         t26_4463.s207 = InputMask("@0F@AMEX@0E@:         ", "XXX", t26_4463.s207, 1213417543)
  628.         t26_4463.s210 = InputMask("@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    ", "XXXXX", t26_4463.s210, 1213417543)
  629.         t26_4463.s215 = InputMask("@0F@TAX RATE@0E@:     ", "99999", t26_4463.s215, 1213417543)
  630.         Print ""
  631.         Print "[@0F@S@0E@]ave changes, [@0F@K@0E@]ill changes:  ";
  632.         s5377 = ""
  633.         Do
  634.           Do
  635.  8747       s5377 = InKey(1213417543)
  636.           Loop Until s5377 <> ""
  637.           s65520_ = UCase(s5377)
  638.           If s65520_ = "S" Then
  639.             Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  640.             Put 1, l4681, t26_4463 '! 218 bytes
  641.             Close 1
  642.             MkDir s5385 + Str(l4681)
  643.             GoTo 9497
  644.           Else
  645.  8879       If s65520_ = "K" Then
  646.               t26_4463.s0 = ""
  647.               t26_4463.s8 = ""
  648.               t26_4463.s33 = ""
  649.               t26_4463.s63 = ""
  650.               t26_4463.s93 = ""
  651.               t26_4463.s123 = ""
  652.               t26_4463.s153 = ""
  653.               t26_4463.s158 = ""
  654.               t26_4463.s168 = ""
  655.               t26_4463.s183 = ""
  656.               t26_4463.s198 = ""
  657.               t26_4463.s201 = ""
  658.               t26_4463.s204 = ""
  659.               t26_4463.s207 = ""
  660.               t26_4463.s210 = ""
  661.               t26_4463.s215 = ""
  662.               GoTo 9497
  663.               GoTo 9144
  664.             End If
  665.           End If
  666.  9144   Loop
  667.  9150   Color 14, 0
  668.         If i5371 = 3 Then
  669.           Chain s5385 + "VIEWOLS.WCX", ""
  670.         End If
  671.  9190   i5371 = i5371 + 1
  672.         MorePrompt(0)
  673.         Cls 
  674.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  675.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  676.         Print "@1E@░░░░░░░░░░░@1F@┌──────────────────────────────────────────────────────┐@1E@░░░░░░░░░░░░"
  677.         Print "@1E@░░░░░░░░░░░@1F@│     @1E@        Online Store - Leasing Office      @1F@      │@07@░░@1E@░░░░░░░░░░"
  678.         Print "@1E@░░░░░░░░░░░@1F@│                    Merchant Access                   │@07@░░@1E@░░░░░░░░░░"
  679.         Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  680.         Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  681.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@1@1F@]   @1F@Edit Your Merchant Profile                     @1F@│@07@░░@1E@░░░░░░░░░░"
  682.         Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  683.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@?@1F@]   @1F@Help!                                          @1F@│@07@░░@1E@░░░░░░░░░░"
  684.         Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  685.         Print "@1E@░░░░░░░░░░░@1F@│ [@1E@X@1F@]   Exit To The Store Lobby                        @1F@│@07@░░@1E@░░░░░░░░░░"
  686.         Print "@1E@░░░░░░░░░░░@1F@├──────────────────────────────────────────────────────┤@07@░░@1E@░░░░░░░░░░"
  687.         Print "@1E@░░░░░░░░░░░@1F@│ @1E@Your Command:  @0E@[ ]@1E@                                   @1F@│@07@░░@1E@░░░░░░░░░░"
  688.         Print "@1E@░░░░░░░░░░░@1F@└──────────────────────────────────────────────────────┘@07@░░@1E@░░░░░░░░░░"
  689.         Print "@1E@░░░░░░░░░░░░░░░@07@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@1E@░░░░░░░░░░"
  690.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  691.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  692.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  693.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  694.         Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  695.         Locate 14, 14
  696.         s4693 = InputMask("@1E@Please enter your system password:  @0E@", "XXXXXXXXXXXXXX", "", 1)
  697.         If (UCase(s4693) <> UCase(User.Password)) = 0 Then GoTo 9497
  698.         Locate 14, 14
  699.         Print "@1E@Invalid Password.  Please Enter A Valid Password.    "
  700.         Locate 14, 62
  701.         Delay 3
  702.       Loop
  703.  9497 Cls 
  704.       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  705.       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  706.       Print "@1E@░░░░░░░░░░░@1F@┌──────────────────────────────────────────────────────┐@1E@░░░░░░░░░░░░"
  707.       Print "@1E@░░░░░░░░░░░@1F@│     @1E@        Online Store - Leasing Office      @1F@      │@07@░░@1E@░░░░░░░░░░"
  708.       Print "@1E@░░░░░░░░░░░@1F@│                    Merchant Access                   │@07@░░@1E@░░░░░░░░░░"
  709.       Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  710.       Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  711.       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@1@1F@]   @1F@Edit Your Merchant Profile                     @1F@│@07@░░@1E@░░░░░░░░░░"
  712.       Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  713.       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@?@1F@]   @1F@Help!                                          @1F@│@07@░░@1E@░░░░░░░░░░"
  714.       Print "@1E@░░░░░░░░░░░@1F@│                                                      @1F@│@07@░░@1E@░░░░░░░░░░"
  715.       Print "@1E@░░░░░░░░░░░@1F@│ [@1E@X@1F@]   Exit To The Store Lobby                        @1F@│@07@░░@1E@░░░░░░░░░░"
  716.       Print "@1E@░░░░░░░░░░░@1F@├──────────────────────────────────────────────────────┤@07@░░@1E@░░░░░░░░░░"
  717.       Print "@1E@░░░░░░░░░░░@1F@│ @1E@Your Command:  @0E@[ ]@1E@                                   @1F@│@07@░░@1E@░░░░░░░░░░"
  718.       Print "@1E@░░░░░░░░░░░@1F@└──────────────────────────────────────────────────────┘@07@░░@1E@░░░░░░░░░░"
  719.       Print "@1E@░░░░░░░░░░░░░░░@07@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@1E@░░░░░░░░░░"
  720.       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░"
  721.       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  722.       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  723.       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  724.       Print "@1E@░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░@07@"
  725.       Locate 14, 30
  726.       s5373 = ""
  727.       Do
  728.         Do
  729.  9705     s5373 = InKey(1213417543)
  730.         Loop Until s5373 <> ""
  731.         s65516_ = UCase(s5373)
  732.         If s65516_ = "?" Then
  733.           Cls 
  734.           Print ""
  735.           Print "  @0E@Edit Your Merchant Profile - @0F@Allows you to edit your merchant profile."
  736.           Print ""
  737.           Print ""
  738.           Print ""
  739.           Print ""
  740.           Print ""
  741.           Print ""
  742.           Print ""
  743.           Print ""
  744.           Print ""
  745.           Print ""
  746.           Print ""
  747.           Print ""
  748.           Print ""
  749.           Print ""
  750.           Print ""
  751.           WaitEnter 
  752.           GoTo 9497
  753.         Else
  754.  9933     If s65516_ = "1" Then
  755.             Cls 
  756.             Print ""
  757.             Print ""
  758.             Print "@0F@CONTACT@0E@:      [" + Pad(User.Name, 25) + "]"
  759.             Print "@0F@COMPANY@0E@:      [" + Pad(t26_4463.s33, 30) + "]"
  760.             Print "@0F@ADDRESS1@0E@:     [" + Pad(t26_4463.s63, 30) + "]"
  761.             Print "@0F@ADDRESS2@0E@:     [" + Pad(t26_4463.s93, 30) + "]"
  762.             Print "@0F@CITY@0E@:         [" + Pad(t26_4463.s123, 30) + "]"
  763.             Print "@0F@STATE@0E@:        [" + Pad(t26_4463.s153, 5) + "]"
  764.             Print "@0F@ZIP@0E@:          [" + Pad(t26_4463.s158, 10) + "]"
  765.             Print "@0F@OFFICE@0E@:       [" + Pad(t26_4463.s168, 15) + "]"
  766.             Print "@0F@FAX@0E@:          [" + Pad(t26_4463.s183, 15) + "]"
  767.             Print "@0F@MASTERCARD@0E@:   [" + Pad(t26_4463.s198, 3) + "]"
  768.             Print "@0F@VISA@0E@:         [" + Pad(t26_4463.s201, 3) + "]"
  769.             Print "@0F@DISCOVER@0E@:     [" + Pad(t26_4463.s204, 3) + "]"
  770.             Print "@0F@AMEX@0E@:         [" + Pad(t26_4463.s207, 3) + "]"
  771.             Print "@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    [" + Pad(t26_4463.s210, 5) + "]"
  772.             Print "@0F@TAX RATE@0E@:     [" + Pad(t26_4463.s215, 5) + "]"
  773.             t26_4463.s0 = Str(l4681)
  774.             Locate 3, 1
  775.             t26_4463.s8 = InputMask("@0F@CONTACT@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXX", User.Name, 1213417543)
  776.             t26_4463.s33 = InputMask("@0F@COMPANY@0E@:      ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s33, 1213417543)
  777.             t26_4463.s63 = InputMask("@0F@ADDRESS1@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s63, 1213417543)
  778.             t26_4463.s93 = InputMask("@0F@ADDRESS2@0E@:     ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s93, 1213417543)
  779.             t26_4463.s123 = InputMask("@0F@CITY@0E@:         ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", t26_4463.s123, 1213417543)
  780.             t26_4463.s153 = InputMask("@0F@STATE@0E@:        ", "XXXXX", t26_4463.s153, 1213417543)
  781.             t26_4463.s158 = InputMask("@0F@ZIP@0E@:          ", "XXXXXXXXXX", t26_4463.s158, 1213417543)
  782.             t26_4463.s168 = InputMask("@0F@OFFICE@0E@:       ", "XXXXXXXXXXXXXXX", t26_4463.s168, 1213417543)
  783.             t26_4463.s183 = InputMask("@0F@FAX@0E@:          ", "XXXXXXXXXXXXXXX", t26_4463.s183, 1213417543)
  784.             t26_4463.s198 = InputMask("@0F@MASTERCARD@0E@:   ", "XXX", t26_4463.s198, 1213417543)
  785.             t26_4463.s201 = InputMask("@0F@VISA@0E@:         ", "XXX", t26_4463.s201, 1213417543)
  786.             t26_4463.s204 = InputMask("@0F@DISCOVER@0E@:     ", "XXX", t26_4463.s204, 1213417543)
  787.             t26_4463.s207 = InputMask("@0F@AMEX@0E@:         ", "XXX", t26_4463.s207, 1213417543)
  788.             t26_4463.s210 = InputMask("@0F@TAX STATE@0E@ OR @0F@N/A@0E@ TO DISABLE TAXATION:    ", "XXXXX", t26_4463.s210, 1213417543)
  789.             t26_4463.s215 = InputMask("@0F@TAX RATE@0E@:     ", "99999", t26_4463.s215, 1213417543)
  790.             Print ""
  791.             Print "[@0F@S@0E@]ave changes, [@0F@K@0E@]ill changes:  ";
  792.             s5377 = ""
  793.             Do
  794.               Do
  795. 11084           s5377 = InKey(1213417543)
  796.               Loop Until s5377 <> ""
  797.               s65512_ = UCase(s5377)
  798.               If s65512_ = "S" Then
  799.                 Open s5385 + "MERCHANT.DAT" For Random As 1 Len = 218 '! This value should probably be replaced with a "SizeOf" expression
  800.                 Put 1, l4681, t26_4463 '! 218 bytes
  801.                 Close 1
  802.                 GoTo 9497
  803.               Else
  804. 11199           If s65512_ = "K" Then
  805.                   t26_4463.s0 = ""
  806.                   t26_4463.s8 = ""
  807.                   t26_4463.s33 = ""
  808.                   t26_4463.s63 = ""
  809.                   t26_4463.s93 = ""
  810.                   t26_4463.s123 = ""
  811.                   t26_4463.s153 = ""
  812.                   t26_4463.s158 = ""
  813.                   t26_4463.s168 = ""
  814.                   t26_4463.s183 = ""
  815.                   t26_4463.s198 = ""
  816.                   t26_4463.s201 = ""
  817.                   t26_4463.s204 = ""
  818.                   t26_4463.s207 = ""
  819.                   t26_4463.s210 = ""
  820.                   t26_4463.s215 = ""
  821.                   GoTo 9497
  822.                   GoTo 11464
  823.                 End If
  824.               End If
  825. 11464       Loop
  826.           Else
  827. 11476       If s65516_ = "X" Then
  828.               Chain s5385 + "VIEWOLS.WCX", ""
  829.               GoTo 11518
  830.             End If
  831.           End If
  832.         End If
  833. 11518 Loop
  834.